home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun: Productivity Pak 1 / rerun-productivity-pak-i.d64 / dfmail (.txt) next >
Commodore BASIC  |  2022-09-20  |  5KB  |  168 lines
  1. 1000 rem-datafile 3.2 subprogram dfmail by mike konshak (c)1983
  2. 1002 ifx=0thenprint" please load and run datafile[146]":end
  3. 1004 ift%=0thent%=6
  4. 1006 iflw=0thenlw=32
  5. 1008 open4,4:gosub1280:goto1102
  6. 1010 rem----subprograms
  7. 1012 print"[147]       loading main program"
  8. 1014 load"datafile",8
  9. 1016 print"[147]  loading report/listing subprogram"
  10. 1018 load"  dfreport",8
  11. 1020 rem----quit
  12. 1022 print"[147]quiting now will erase current data"
  13. 1024 print"are you sure you want to quit?":print" y[146] or n[146] ?
  14. 1026 [161]a$:[139]a$[178]"" [167]1026
  15. 1028 [139]a$[178]"n"[167]1102
  16. 1030 [139]a$[178]"y"[167]1034
  17. 1032 [137]1026
  18. 1034 [160]4:[153]"loadsubprogram terminated"
  19. 1036 [153]"datafilewait by mike konshak (c)1983":[128]
  20. 1038 [143] ----search
  21. 1040 [153]"load            print options menu        "
  22. 1042 [153]"    awaitll records in file
  23. 1044 print"    s[146]elect individual record
  24. 1046 [153]"    fwaitind records with common fields
  25. 1048 print"    e[146]xit to main menu
  26. 1050 [153]"       press the appropriate key       "
  27. 1052 [161]c$:[139]c$[178]"" [167]1052
  28. 1054 [139]c$[178]"a"[167]1098
  29. 1056 [139]c$[178]"s"[167]1066
  30. 1058 [139]c$[178]"f"[167]1074
  31. 1060 [139]c$[178]"e"[167]1102
  32. 1062 [137]1052
  33. 1064 [143]----select record
  34. 1066 [133]"print which record";i$:i[178][197](i$)
  35. 1068 [139]i[177]x[167][153]"no such record exists, try againononon":[137]1066
  36. 1070 [141]1268:[137]1040
  37. 1072 [143]----find common records
  38. 1074 [153]"load     find records with common items    "
  39. 1076 [129] n[178]1[164]f:[153]" ";n;"wait ";f$(n):[130]n
  40. 1078 [133]"which field is to be searched";sf
  41. 1080 [139]sf[179]0[176]sf[177]f [167][153]"ononon":[137]1078
  42. 1082 [153]"enter common itemwait ":[153]"(the entire string is not required)"
  43. 1084 [153]"";f$(sf);"wait ";:[133]t$
  44. 1086 [129]i[178]1[164]x
  45. 1088 [153]"searching record";i;"onon"
  46. 1090 [139]t$[178][200](rec$(k%(i),sf),[195](t$))[167][141]1268
  47. 1092 [130]i
  48. 1094 [137]1040
  49. 1096 [143]----print all records
  50. 1098 [133]"loadstart at record? 1cmdcmdcmd";s:[139]s[177]x[176]s[179]1[167]1098
  51. 1099 [153]"load":[129]i[178]s[164]x:[153]"on printing record #";i:[141]1268:[130]i:[137]1040
  52. 1100 [143]----menu
  53. 1102 [153]"load         mailing labels menu           "
  54. 1104 [153]"      pwaitre-defined format or"
  55. 1106 [153]"      dwaitefine new format"
  56. 1108 [153]"      cwaithange label size"
  57. 1110 [153]"      ewaitxit to main program or"
  58. 1112 [153]"      rwaiteport/listing program"
  59. 1114 [153]"      qwaituit program"
  60. 1116 [153]"       press the appropriate key       "
  61. 1118 [161]c$:[139]c$[178]"" [167]1118
  62. 1120 [139]c$[178]"p"[167]1220
  63. 1122 [139]c$[178]"c"[167][141]1280:[137]1102
  64. 1124 [139]c$[178]"e"[167][160]4:[137]1012
  65. 1126 [139]c$[178]"r"[167][160]4:[137]1016
  66. 1128 [139]c$[178]"d"[167]1136
  67. 1130 [139]c$[178]"q"[167]1022
  68. 1132 [137]1118
  69. 1134 [143]------mailing list format
  70. 1136 [153]"load         mailing list format           "
  71. 1138 [153]"  this format uses single row labels.
  72. 1140 print"each label contains up to"t%-1" rows.
  73. 1142 [153]"each row can consist of 1 to 3 fields.
  74. 1144 print"if the length of multiple items exceeds
  75. 1146 [153]"cmd"lw"characters, some data will be cutoff"
  76. 1148 [153]"number of rows?":[153]"?   cmdcmdcmd";rw:[133]"on";rw
  77. 1150 [139]rw[177]t%[171]1[167][153]"ononon":[137]1148
  78. 1152 [139]rw[178]0[167]1102
  79. 1154 [153]"loadchoose which fields go in each row"
  80. 1156 [153]"enter 0wait if additional fields are":[153]"not desired."
  81. 1158 [129]n[178]1[164]f:[153]"";n;"wait ";f$(n):[130]n
  82. 1160 [129] j[178]1[164]rw:[153]"";[163]25)"row";j;""
  83. 1162 [129]l[178]1[164]3:[153][163]25)"onfield";l;" 0 cmdcmd";ml$(j,l)
  84. 1164 [153][163]32);"on";:[133]ml$(j,l)
  85. 1166 [130]l
  86. 1168 [130]j
  87. 1170 [153]"loaddo you wish to review your format and/or"
  88. 1172 [153]"make corrections?  press ywait or nwait"
  89. 1174 [161]a$:[139]a$[178]""[167]1174
  90. 1176 [139]a$[178]"y"[167]1136
  91. 1178 [139]a$[178]"n"[167]1184
  92. 1180 [137]1174
  93. 1182 [143]-----save format
  94. 1184 [153]"save formatwait?             ywait or nwait"
  95. 1186 [161]a$:[139]a$[178]""[167]1186
  96. 1188 [139]a$[178]"n"[167]1246
  97. 1190 [139]a$[178]"y"[167]1194
  98. 1192 [137]1186
  99. 1194 [153]"save under what file name?"
  100. 1196 [153]"  ";nf$:[133]"on";nf$:[139]nf$[178]""[167]1102
  101. 1198 [159]15,8,15:[152]15,"s0:ml] "[170]nf$:[141]1316:[139]et[178]8[167]1102
  102. 1200 [159]5,8,5,"0:ml] "[170]nf$[170]",s,w":[141]1316:[139]et[178]8[167]1102
  103. 1202 [152]5,rw
  104. 1204 [129]i[178]1[164]rw:[129]n[178]1[164]3
  105. 1206 [152]5,ml$(i,n):[141]1316:[139]et[178]8[167]1102
  106. 1208 [130]n
  107. 1210 [130]i
  108. 1212 [152]5,"eof":[141]1316:[139]et[178]8[167]1102
  109. 1214 [160]5:[160]15
  110. 1216 [137]1246
  111. 1218 [143]-----load format
  112. 1220 [153]"load format from what file?"
  113. 1222 [153]"  ";nf$:[133]"on";nf$:[139]nf$[178]""[167]1102
  114. 1224 [159]15,8,15:[159]5,8,5,"0:ml] "[170]nf$[170]",s,r":[141]1316:[139]et[178]8[167]1102
  115. 1225 [139]en[178]62[167][141]1318:[137]1102
  116. 1226 [132]5,rw
  117. 1228 [129]i[178]1[164]rw:[129]n[178]1[164]3
  118. 1230 [132]5,ml$(i,n):[141]1316:[139]et[178]8[167]1102
  119. 1232 [130]n
  120. 1234 [130]i
  121. 1236 s[178]st:[139]s[179][177]0[167]1240
  122. 1238 [132]5,e$
  123. 1240 [160]5:[160]15
  124. 1242 [137]1170
  125. 1244 [143]-----print sample labels
  126. 1246 [153]"loadinsert single row tractor feed labels"
  127. 1248 [153]"run test labels to help position labels
  128. 1250 print"press t[146]est label
  129. 1252 [153]"      cwaithoose records
  130. 1253 print"      e[146]xit to menu
  131. 1254 [161]a$:[139]a$[178]""[167]1254
  132. 1256 [139]a$[178]"c"[167]1040
  133. 1257 [139]a$[178]"e"[167]1102
  134. 1258 [139]a$[179][177]"t"[167]1254
  135. 1260 [129]i[178]1[164]rw:[129]j[178]1[164]lw:[152]4,[201]([196](j),1);:[130]j:[152]4,b1$:[130]i
  136. 1262 [129]i[178]1[164]t%[171]rw:[152]4,b1$:[130]i
  137. 1264 [137]1246
  138. 1266 [143]----print labels
  139. 1268 [129]j[178]1[164]rw:f1[178][197](ml$(j,1)):f2[178][197](ml$(j,2)):f3[178][197](ml$(j,3))
  140. 1270 [152]4,[200](rec$(k%(i),f1)[170]b$[170]rec$(k%(i),f2)[170]b$[170]rec$(k%(i),f3),lw)
  141. 1272 [130]j
  142. 1274 [129]s[178]1[164]t%[171]rw:[152]4,b1$:[130]s
  143. 1276 [142]
  144. 1278 [143]----choose label size
  145. 1280 [153]"load             label size               wait"
  146. 1282 [153]"    swaittandard - 5 rows per label"
  147. 1284 [153]"      15/16 inch by 3 1/2 inches"
  148. 1286 [153]"    lwaitarge    - 8 rows per label"
  149. 1288 [153]"      1 7/16 inch by 3 1/2 inches"
  150. 1290 [153]"    owaitther    - custom label size or"
  151. 1292 [153]"      number of characters per row"
  152. 1294 [153]" note: labels are separated by one row"
  153. 1296 [153]" 32 characters per row is standard"
  154. 1298 [153]"       press the appropriate key       "
  155. 1300 [161]c$:[139]c$[178]""[167]1300
  156. 1302 [139]c$[178]"s"[167]t%[178]6:rw[178]5:lw[178]32:[142]
  157. 1304 [139]c$[178]"l"[167]t%[178]9:rw[178]8:lw[178]32:[142]
  158. 1306 [139]c$[178]"o"[167]1310
  159. 1308 [137]1300
  160. 1310 [133]" enter number of rows on label";rw:t%[178]rw[170]1
  161. 1312 [133]" enter # of characters per row";lw:[142]
  162. 1314 [143]----disk error check
  163. 1316 [132]15,en,em$,et,es:[139](en[179]20)[176](en[178]62)[167]et[178]0:[142]
  164. 1318 [153]" disk errorwait"en"cmd, "em$","et"cmd,"es
  165. 1320 [153]" press any keywait to return to menu"
  166. 1322 [161]a$:[139]a$[178]""[167]1322
  167. 1324 et[178]8:[160]5:[160]15:[142]
  168.